home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 September & October / Amiga-CD 1996 #9-10.iso / ausgabe_9_96 / kommunikation / mm_030 / rexx / mm_node.rexx < prev    next >
OS/2 REXX Batch file  |  1996-04-29  |  710b  |  30 lines
  1. /*
  2. ** This script shows how to obtain
  3. ** informations about a node
  4. */
  5.  
  6. address 'MAILMANAGER'
  7.  
  8. MM_GetNodeInfo '39:102/1.0@amiganet' nodeinfo
  9.  
  10. if RC=0 THEN DO
  11.     say 'ADDRDIM   :' nodeinfo.addrdim
  12.     say 'PACKDIM   :' nodeinfo.packdim
  13.     say 'FLAVOR    :' nodeinfo.echoflavor
  14.     say 'PKTPW     :' nodeinfo.pktpw
  15.     say 'AREAFIXPW :' nodeinfo.areafixpw
  16.     say 'TICKPW    :' nodeinfo.tickpw
  17.     say 'USERFLAGS :' nodeinfo.userflags
  18.     DO i=0 FOR nodeinfo.GROUPCOUNT
  19.         say 'GROUP' i 'NAME  :' nodeinfo.GROUPNAME.i
  20.         say 'GROUP' i 'LEVEL :' nodeinfo.GROUPLEVEL.i
  21.         END
  22.     DO i=0 FOR nodeinfo.AREA.COUNT
  23.         say 'AREA' i ':' nodeinfo.AREA.i
  24.         END
  25.     DO i=0 FOR nodeinfo.TICKAREA.COUNT
  26.         say 'TICKAREA' i ':' nodeinfo.TICKAREA.i
  27.         END
  28.     END
  29.  
  30.